home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / misc / changebar.sty < prev    next >
Text File  |  1993-06-27  |  6KB  |  156 lines
  1. % Change bar document-style option for LaTeX.
  2. %
  3. % Copyright (C) 1990 by David B. Johnson (dbj@titan.rice.edu).
  4.  
  5. % These macros draw a solid bar down the right margin of the output,
  6. % covering a range of the input file that has been declared to be changed.
  7. %
  8. % The beginning and end of a change bar in the text are marked with
  9. % \chgbarbegin and \chgbarend, respectively.  For example,
  10. %
  11. %     Here is some sample text \chgbarbegin that was
  12. %     changed\chgbarend{} and some that wasn't changed.
  13. %
  14. % The change bar is drawn continuously between the line of output
  15. % containing the \chgbarbegin and the line of output containing the
  16. % \chgbarend.  These lines can end up on separate pages, and the
  17. % division at page boundaries is handled automatically.
  18.  
  19. % Two dimensions control the size and placement of the change bars:
  20. %     \chgbarwidth      The width of a change bar
  21. %     \chgbarsep        The distance between the text and the change bar
  22.  
  23. % Warning: it does not appear to be possible to do this completely
  24. % correctly, due to the time at which the verticle glue on a page is
  25. % finally set, and the way that page breaks are decided.  With
  26. % \raggedbottom, this normally works fine.  It hasn't been tested with
  27. % \flushbottom, but will probably behave worse.  In strange rare
  28. % situations, a change bar might be drawn from the first line of a page
  29. % up off the top of a page; this can usually be fixed by slightly moving
  30. % the \chngbarend around, or by breaking a single change bar range
  31. % into two ranges.
  32.  
  33. \newdimen\chgbarwidth \newdimen\chgbarsep
  34. \chgbarwidth 4pt
  35. \chgbarsep .25in
  36.  
  37. \def\chgbarbegin{\ifhmode\@chgbar{-2}\else\@chgbar{-3}\fi}
  38. \def\chgbarend{\@chgbar{-4}}
  39.  
  40. \marginparpush 0pt
  41.  
  42. % The remainder of this is hacked up based on the LaTeX 2.09 latex.tex.
  43.  
  44. % copied from \marginpar
  45. \def\@chgbar#1{\ifhmode \@bsphack\@floatpenalty -\@Mii\else
  46.    \@floatpenalty-\@Miii\fi\ifinner
  47.       \@parmoderr\@floatpenalty\z@
  48.     \else\@next\@currbox\@freelist{\global
  49.       \count\@currbox#1}{\@floatpenalty\z@ \@fltovf
  50.       \def\@currbox{\@tempboxa}}\fi
  51.      \setbox\@tempboxa\vbox
  52.      \bgroup\end@float\@esphack}
  53.  
  54. \newdimen\@chgbarbegin
  55. \newif\if@inchgbar \@inchgbarfalse
  56.  
  57. \def\@addmarginpar{%
  58. \ifnum\count\@currbox = -2    % change bar begin from hmode
  59.     \global\@chgbarbegin\@pageht \global\advance\@chgbarbegin -\baselineskip
  60.     \global\@inchgbartrue
  61.     \@cons\@freelist\@currbox
  62. \else
  63. \ifnum\count\@currbox = -3    % change bar begin not from hmode
  64.     \global\@chgbarbegin\@pageht
  65.     \global\@inchgbartrue
  66.     \@cons\@freelist\@currbox
  67. \else
  68. \ifnum\count\@currbox = -4    % change bar end
  69.     \if@inchgbar\else\@latexbug\fi
  70.     \@tempdima\@pageht \advance\@tempdima -\@chgbarbegin
  71.     \nointerlineskip
  72.     \@tempcnta\@ne
  73.     \if@twocolumn
  74.         \if@firstcolumn \@tempcnta\m@ne \fi
  75.     \else
  76.       \if@mparswitch
  77.          \ifodd\c@page \else\@tempcnta\m@ne \fi
  78.       \fi
  79.       \if@reversemargin \@tempcnta -\@tempcnta \fi
  80.     \fi
  81.     \hbox to\columnwidth
  82.       {\ifnum \@tempcnta >\z@
  83.           \hskip\columnwidth \hskip\chgbarsep
  84.         \else \hskip -\chgbarsep \fi
  85. \hbox{\vbox to 0pt{\vss
  86.        \hrule \@height\@tempdima \@width\chgbarwidth \@depth\z@
  87. }}
  88. \hss}
  89.     \nointerlineskip
  90.     \global\@inchgbarfalse
  91.     \@cons\@freelist\@currbox
  92. \else
  93.     \@next\@marbox\@currlist{\@cons\@freelist\@marbox
  94.     \@cons\@freelist\@currbox}\@latexbug\@tempcnta\@ne
  95.     \if@twocolumn
  96.         \if@firstcolumn \@tempcnta\m@ne \fi
  97.     \else
  98.       \if@mparswitch
  99.          \ifodd\c@page \else\@tempcnta\m@ne \fi
  100.       \fi
  101.       \if@reversemargin \@tempcnta -\@tempcnta \fi
  102.     \fi
  103.     \ifnum\@tempcnta <\z@  \global\setbox\@marbox\box\@currbox \fi
  104.     \@tempdima\@mparbottom \advance\@tempdima -\@pageht
  105.        \advance\@tempdima\ht\@marbox \ifdim\@tempdima >\z@
  106.        \@warning{Marginpar on page \thepage\space moved}\else\@tempdima\z@ \fi
  107.     \global\@mparbottom\@pageht \global\advance\@mparbottom\@tempdima
  108.        \global\advance\@mparbottom\dp\@marbox
  109.        \global\advance\@mparbottom\marginparpush
  110.     \advance\@tempdima -\ht\@marbox
  111.     \global\ht\@marbox\z@ \global\dp\@marbox\z@
  112.     \vskip -\@pagedp \vskip\@tempdima\nointerlineskip
  113.     \hbox to\columnwidth
  114.       {\ifnum \@tempcnta >\z@
  115.           \hskip\columnwidth \hskip\marginparsep
  116.         \else \hskip -\marginparsep \hskip -\marginparwidth \fi
  117.        \box\@marbox \hss}
  118.     \vskip -\@tempdima
  119.     \nointerlineskip
  120.     \hbox{\vrule \@height\z@ \@width\z@ \@depth\@pagedp}
  121. \fi\fi\fi}
  122.  
  123. \def\@makecol{\setbox\@outputbox\box\@cclv
  124.    \if@inchgbar
  125.     \@tempcnta\@ne
  126.     \if@twocolumn
  127.         \if@firstcolumn \@tempcnta\m@ne \fi
  128.     \else
  129.       \if@mparswitch
  130.          \ifodd\c@page \else\@tempcnta\m@ne \fi
  131.       \fi
  132.       \if@reversemargin \@tempcnta -\@tempcnta \fi
  133.     \fi
  134.     \@tempdima\ht\@outputbox \advance\@tempdima -\@chgbarbegin
  135.     \advance\@tempdima -\baselineskip
  136.     \setbox\@outputbox
  137.      \vbox{\boxmaxdepth \maxdepth
  138.      \unvbox\@outputbox \nointerlineskip \hbox to\columnwidth
  139.       {\ifnum \@tempcnta >\z@
  140.           \hskip\columnwidth \hskip\chgbarsep
  141.         \else \hskip -\chgbarsep \fi
  142.        \hbox{\vbox to 0pt{\vss
  143.          \hrule \@height\@tempdima \@width\chgbarwidth \@depth\z@}}\hss}}
  144.     \global\@chgbarbegin 0pt
  145. \fi
  146.    \ifvoid\footins\else\setbox\@outputbox
  147.      \vbox{\boxmaxdepth \maxdepth
  148.      \unvbox\@outputbox\vskip\skip\footins\footnoterule\unvbox\footins}\fi
  149.      \xdef\@freelist{\@freelist\@midlist}\gdef\@midlist{}\@combinefloats
  150.      \setbox\@outputbox\vbox to\@colht{\boxmaxdepth\maxdepth
  151.         \@texttop\dimen128=\dp\@outputbox\unvbox\@outputbox
  152.         \vskip-\dimen128\@textbottom}
  153.      \global\maxdepth\@maxdepth}
  154.  
  155.  
  156.